From: Eric Abrahamsen Date: Thu, 1 Nov 2018 23:50:17 +0000 (-0700) Subject: Obsolete gnus-correct-length in favor of string-width X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~4620 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ea35756ac635dc5e9251552646c0bc0642d7e822;p=emacs.git Obsolete gnus-correct-length in favor of string-width * lisp/gnus/gnus-spec.el: Define an obsolete alias. --- diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el index 379a7f2b5c3..4b5f15fbc6d 100644 --- a/lisp/gnus/gnus-spec.el +++ b/lisp/gnus/gnus-spec.el @@ -271,9 +271,7 @@ Return a list of updated types." (insert " "))) (insert-char ? (max (- ,column (current-column)) 0)))))) -(defun gnus-correct-length (string) - "Return the correct width of STRING." - (apply #'+ (mapcar #'char-width string))) +(define-obsolete-function-alias 'gnus-correct-length 'string-width "27.1") (defun gnus-correct-substring (string start &optional end) (let ((wstart 0)